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AKTUELE BIJLAGE BĲ COMMODORE DOSSIER 


VOORLOPERS GEZOCHT 


Elektronisch winkelen. Eerst 
was het Science Fiction, toen 
werd het Nabije Toekomst en 
tegenwoordig beweert iedereen 
dat het technisch allang moge- 
lijk is. Nu gaat het dan werke- 
lijk gebeuren. De firma Comp- 
U-Card uit Maarssen trekt de 
primeur naar zich toe. U kunt 
zich deze firma het best voor- 
stellen als een grote computer 
waarin de gegevens zijn opgesla- 
gen van een groot aantal duur- 
dere consumptiegoederen, zoals 
audio-en video-apparatuur, fiet- 
sen, computers, horloges, keu- 
kenapparaten en dergelijke. De 
klanten van Comp-U-Card, die 
ongeveer 100 gulden per jaar 
betalen voor hun lidmaatschap, 
bellen met het bedrijf als ze 
koopplannen hebben. Ze krijgen 
daar een telefoniste aan de lijn 
die alles voor hun op een rijtje 
zet. Hebben ze hun keus ge- 


COMMODORE DOSSIER AKTIEF ver- 
schijnt 12 keer per jaar. In februari, 
mei, augustus en november als bijla- 
ge in het hart van Commodore Dos- 
sier, in de overige maanden als los- 
se uitgave uitsluitend voor abonnees 
van Commodore Dossier. 


DEZE MAAND: 


NIEUWS 
Vanaf pagina 1 


BASIC ONDER 
DE LOEP 
Alternatieve INPUT-routine, pagina 4 


TIPS & TRUCS 
Vanaf pagina 5 


LISTINGS 
Vanaf pagina 6 


MARKT 
pagina 10 


maakt dan kunnen ze ook via. 
Comp-U-Card bestellen. Het be- 
drijf garandeert de laagste prijs, 
optimale garantiebepalingen en 
snelle levering. Een soort 
postorder-bedrijf dus, maar dan 
anders. Comp-U-Card brengt 
geen catalogus uit, maar de gro- 
te computer is in feite hun cata- 
logus. Heel handig zou het na- 
tuurlijk zijn als u de inhoud van 
die computer thuis op uw eigen 
beelschem zou kunnen toveren, 
zodat u alles op uw gemak kunt 
nalezen. Dat kan binnenkort. 


Dat wil zeggen, Comp-U-Card 
wil eerst de zaak even goed 
testen. U voelt het al: men 


zoekt proefkonijnen en men 


vraagt zich af of de abonnees 
van Commodore Dossier daar 
iets voor voelen. 

Voor alle duidelijkheid: deelna- 
me aan het experiment kost u 
niets en verplicht u absoluut tot 
niets. U zit ook niet levenslang 
aan Comp-U-Card gebakken als 
ze eenmaal uw adres hebben. 
Anders hadden we u dit voor- 
stel natuurlijk niet gedaan. 


PRIJSVERLAGING PC'S 


Omdat het goed gaat met de PC 10 en PC 20, er dus meer worden 
gemaakt tegen lagere kosten, kon Commodore de prijzen voor de ma- 
chines verlagen. De prijsverlagingen zijn structureel. De PC 10 gaat 
voortaan f 4990,- exclusief BTW kosten (was f 5695,- exclusief) en de 


PC 20 f 7750,- (was f 8595,-). 


AAN BELGISCHE ABONNEES 


Uit verschillende telefonische en schriftelijke reacties van lezers in 
Vlaanderen is ons gebleken dat er soms aanzienlijke provisie-kosten 
moeten worden betaald voor overmaking van abonnementsgelden, Dat 
hoeft dus niet. Wij maken onze Belgische abonnees er op attent dat 
op de factuur die zij ontvangen, ons bankrekeningnummer in België 


staat vermeld: 


210-0742230-38, Generale Bank Maatschappij Brussel 
Hierop kan zonder extra kosten het abonnee-bedrag worden over- 


gemaakt. 


STAND BEURSSPEL 


Onze medewerkster Marianne Stolk leert snel. Bij de laatste uitslag 
van het Nationale Beursspel bleek ze spectaculair gestegen op de rang- 
lijst. In de provincie Noord-Holland is ze nu nummer 87, landelijk num- 
mer 489. Haar totale kapitaal bedraagt nu f 20533, —. Het dreigt dus 
leuk te worden. 
NA 
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Het gaat dus als volgt. U meldt 
zich bij het bedrijf als u een 
computer en liefst ook een 
Viditel-modem heeft. Vervol- 
gens krijgt u een kaart thuis en 
krijgt u toegang tot de grote 
computer. Als u dan in de ko- 
mende periode een of ander 
duur consumptie-artikel wilt 
aanschaffen, kijkt u even in de 
computer hoe de prijzen van 
Com-U-Card liggen. Bevallen 
die u en bent u het eens met de 
garantiebepalingen, leverings- 
voorwaarden en -tijden dan 
kunt u het betreffende artikel 
via het bedrijf bestellen, maar 
het hoeft natuurlijk niet. U 
kunt het bestand ook enkel ge- 
bruiken voor uw eigen markton- 
derzoek. Comp-U-Card heeft 
voor het experiment 100 mensen 
nodig. Die worden geselecteerd 
uit de aanmeldingen naar aan- 
leiding van dit artikel. Als zich 
meer mensen aanmelden, dan 
krijgen die geen toegang, maar 
wel een presentje in de vorm 
van een gratis kaart die telefo- 
nisch toegang geeft tot de da- 
tabank. 

Dus nogmaals: in deze experi- 
menteerfase gaat het u pas geld 
kosten als u daadwerkelijk een 
van de artikelen uit de Comp- 
U-Card computer zou willen 
aanschaffen. 


Belangstellenden kunnen zich 
aanmelden bij: 
Comp-U-Card 
Antwoordnummer 2350 

3600 WB Maarssen. 


Een postzegel is niet nodig. Ver- 
meld wel duidelijk uw naam en 
adres, of u ja of nee een modem 
heeft, en eventueel uw beroep, 
leeftijd en geslacht. U krijgt dan 
verder bericht thuis. - 





CD IN VIDITEL 


Veel lezers die zich melden voor 
toegang tot het besloten gedeelte 
van onze Viditel-pagina's (stuur 
een briefkaart met Viditel- 
klantnummer en abonnee- 
nummer), bellen na een tijdje 
op waarom ze niets horen, De 
reden daarvoor is simpel. Als u 
zich eenmaal gemeld heeft, 
hoort u inderdaad niets meer 
van ons, maar u merkt na een 
paar dagen gewoon dat u toe- 
gang heeft. Wel onstaan er pro- 
blemen als abonnee-nummer en 
Viditel-nummer op verschillende 
namen staan. Dat wordt voor 


Pee EED 


EE 
tWijrtoenggn in genuelicaanan 


Enk hdd 
a hd ka 
KE 


ons een hele zoekerij, en boven- 
dien moeten we ervoor waken 
dat alles eerlijk gebeurt. 
Tenslotte nog een verzoek aan 
communicatie-fanaten. Meldt u 
zo snel mogelijk fouten in de te- 
lefoonnummers van Bulletin Bo- 
ards. Daarmee is een hoop el- 
lende te voorkomen, van argelo- 
ze telefoon-abonnees die midden 
in de nacht uit hun bed worden 
gebeld. 


FOUT IN SCHEMA 


Een slordige fout is geslopen in de tekening van het bedradingsschema rigeren van uitgeprinte listings is 
RS232C-connector (CD 4, pagina 68). Pen 1 en 3 van de IC moeten natuurlijk een heidens karwei. 
daar gecombineerd lopen naar aansluitpunt M op de Userpoort. Dat Opbellen werkt bijna nooit. 
betekent dat ook dat op pagina 69, de derde tekening van boven, Henk Snoeks is overdag niet op 
TRANSMIT GEEL naar pen M moet worden gevoerd. Onze excuses de redactie aanwezig en heeft 


aan de knutselaars. 


Sport 


voor de CBM 64 en 128 


De gehele Nederlandstalige opvolger van 
Easyscript. Het programma is menu en 
commando gestuurd, beschikt over een 
spellingschecker, rekenfunctie’s en kan tot 240 
kolommen breed werken. D.m.v. printerfile’s 
kunnen diverse printers worden aangesloten en 
kunt U zelf printeropties definiëren, b.v. 


verschillende lettertype’s. 


adviesprijs CBM 64 fl. 399, —, CBM 128 fl. 499, — 


Spora 


voor de CBM 64 en 128 


Van het meest complete database programma is 
nu versie 2 beschikbaar. Dit betekent extra 
utility programma’s, nieuw labelprogramma en 
extra commando's. Op de CBM 128 heeft U nu 
maximaal 62 Kb ruimte voor programma’s en 
variabelen. Op de CBM 128 kunt U Superbase 
128 en Superscript 128 tegelijk in het geheugen 


aanwezig hebben. 


adviesprijs CBM 64 fl. 399,—, CBM 128 fl. 499, — 


VAN DE PROGRAMMA- 


HULPDIENST 


Coördinator van de programma- 
hulpdienst, Henk Snoeks, vraagt 
even uw aandacht voor een aan- 
tal mededelingen van huishoude- 
lijke aard. Als u ons blad al 
langer leest, kent u ons motto: 
wij krijgen uw programma's 
aan het lopen, al gaan er tien 
brieven overheen. Brieven 
schrijven blijft de snelste manier 
om een oplossing te vinden voor 
niet werkende programma’s. 
Stuur bij voorkeur een diskette 
met daarop uw pogingen met 
uw brief mee, Die diskettes ko- 
men natuurlijk altijd retour. De 
praktijk leert dat cassettes vaak 
laadproblemen geven en het cor- 


bovendien geen telefoon. Viditel 


Upgraden 


van naar 


is wel een mogelijkheid, Zodra 
fouten door lezers gesignaleerd 
zijn, worden ze vermeld in Vidi- 
tel. Commodore Dossier in Vi- 
ditel begint, zoals bekend, op 
pagina 6240. 

Tenslotte zouden we u willen 
vragen om er niet meteen van 
uit te gaan dat de fout wel in 
het programma zal zitten. Zelfs 
u kunt fouten maken. Kijk 
vooral de data-regels zeer secuur 
na, voordat u gaat schrijven. 
Bijvoorbeeld. Een bekende mel- 
ding na RUNnen is: “illegal 
quantity error in…”’. Dat duidt 
op een hogere waarde dan 255 
in een van de dataregels. De re- 
gel waarin deze fout is gemaakt, 
wordt gevonden door het vol- 
gende in direct mode, dus zon- 
der regelnummer in te tikken: 
PRINT 

PEEK (63) + PEEK(64)*256 


normaal inruil uw prijs 





Easyscript Superscript 64 


fl. 399, — fl. 100, fl. 299, — 





Easyscript 


Superscript 128 


fl. 499, — fl. 125,— fl. 374, — 





Superbase 64 Superbase 128 


fl. 499, — fl. 180, fl. 319, — 





Superbase 


Starter Superbase 64 


fl. 399, — fl. 150, fl. 249, — 





Superbase 


Starter Superbase 128 


fl. 499, — fl. 150, fl. 349, — 





Superbase 


Versie 1 naar Versie 2 


Informeer bij uw dealer of: 


naar de voorwaarden voor upgraden. 


Precision Software b.v. 


Heemraadssinge 


[195 


_ 3023 CB Rotterdam 
Precision Telefoon 010-778890 
Software 
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EEN ALTERNATIEVE INPUT-ROUTINE 


Vaste lezers van deze rubriek 
herinneren zich ongetwijfeld nog 
de 'INPUT-truc’ uit een vorige 
aflevering: de mogelijkheid om 
met INPUT#1 het vervelende 
vraagteken bij een INPUT- 
opdracht te verwijderen. 

Nu presenteren wij u een kant 
en klare subroutine, die geheel 
afrekent met de problemen van 
de INPUT-commando. Niet al- 
leen is het nu ook mogelijk om 
komma’s, punten en dergelijke 
in te voeren, tevens is de kans 
op het maken van fouten (bij- 
voorbeeld het abusievelijk in- 
drukken van een cursortoets) tot 
nul gereduceerd. En misschien 
wel het grootste voordeel: u 
kunt voortaan maximaal 255 te- 
kens invoeren, een schril con- 
trast met de 80 tekens van de 
standaard INPUT-opdracht! 


GEEN CURSORBESTURING 
Uiteraard dienen we, als we een 
dergelijke subroutine schrijven, 
een stuk of wat problemen op 
te lossen. Bijvoorbeeld: 

1. de cursortoetsen moeten wor- 
den uitgeschakeld 

2. dit geldt ook voor toetsen als 
CLR/HOME en dergelijke 

3. er moet een DELETE- 
mogelijkheid zijn 

4. we moeten onze eigen ’cur- 
sor’ ontwerpen 

Deze problemen worden in de 
subroutine stap voor stap opge- 
lost. Het belangrijkste punt is 
dat we, in plaats van INPUT, 
het GET-commando gaan ge- 
bruiken. De GET-opdracht 
haalt een toets uit de toetsen- 
buffer. Als er geen toets werd 
ingedrukt, resulteert dit in een 
zogenaamde ’nulstring’. Hoe we 
hiermee afrekenen, zien we zo 
meteen. 

Voor onze eigen ‘cursor’ gebrui- 
ken we een ander teken dan 
CHR$(160) (deze wordt door de 
INPUT-rouinte gebruikt en is in 
feite niets meer of minder dan 
een diapositieve spatie!). Wij 
kiezen voor CHR$(166), een 
gearceerd blokje, 

De subroutine ziet er als volgt 
uit: 


10000 rem *** alternatieve 
input-routine *** 

10010 rem voor: commodore 
64, vic-20, c-16, plus/4 en c 128 
10020 rem 

10030 poke 198,0 

10040 ip$ = "7 

10050 print chr$(166)chr$(157); 
10060 get ke$:if ke$ = °°” then 
10060 

10070 te = len(ip$) 

10080 if ke$ < >chr$(20) then 
10110 

10090 if te=0 then 10060 

10100 ip$ = left$(ip$,te-I):print 
chr$(32)chr$(157)chr$(157);:goto 
10050 

10110 if keb = chr$(13) then 
print chr$(32)chr$(20):return 
10120 if te=255 then 10060 
10130 if ke$ > chr$(31) and 
ke$ < chr$(@1) then 10150 
10140 goto 10060 

10150 print ke$;:ip$ = ip$ + 
ke$:goto 10050 


Zoals u ziet, nog een flink stuk 
code. We zullen de programma- 
regels zoals u dat van ons ge- 
wend bent, nu stap voor stap 
met u doornemen: 


REGEL 10000-10020: 

drie REM-instructies. Ze hebben 
geen andere functie dan het ge- 
ven van listing-informatie. De 
computer doet er verder niets 
mee. 


REGEL 100030: we vertelden 
al, dat we gebruik gingen ma- 
ken van de GET-opdracht. 
Hiervoor is het noodzakelijk dat 
we de toetsenbuffer (een soort 
‘sluis’, waarin de laatste 10 in- 
gevoerde tekens worden be- 
waard) leegmaken. Als we dit 
vergeten, komt er wellicht een 
per ongeluk door u ingedrukte 
toets alvast op het scherm te 
staan. 

Het aantal tekens in de toetsen- 
buffer wordt bijgehouden in de 
geheugen-locatie 198, Door de 
inhoud hiervan op 0 te zetten, 
‘denkt’ de computer dat er geen 
enkele toets meer op afhande- 
ling wacht. Pas nu worden 
eventueel ingedrukte toetsen 
voor onze routine bewaard! 


REGEL 10040: de uiteindelijke 


’routinestring’ wordt opgeslagen 
in [P$; deze string gaat straks 
de gevraagde informatie bevat- 
ten. Deze string wordt nu leeg- 
gemaakt (letterlijk: omgezet in 
een nulstring). 


REGEL 10050: het printen van 
onze nieuwe cursor CHR$ 
(166). Meteen daarna wordt een 
cursor links afgedrukt, zodat we 
straks op de plaats van het ruit- 
je een letter neer kunnen zetten. 
Let op de punt-komma na 
CHR$(157). Indien deze punt- 
komma ontbreekt, wordt de 
tekst op de volgende regel afge- 
drukt. En dat is natuurlijk niet 
de bedoeling … 


REGEL 10060: het ‘hart’ van 
deze subroutine: hier wordt een 
teken van het toetsenbord opge- 
haald. Als er geen toets is inge- 
drukt, resulteert dit in een zoge- 
naamde nulstring (IF KE$ = 
22). Er is hier sprake van een 
lus, er wordt gewacht totdat er 
ook inderdaad een toets is in- 
gedrukt. 


REGEL 10070: de lengte van 
IP$ (de uiteindelijke string) 
wordt in de variabele TE (= 
teller) gezet. Noodzakelijk, om- 
dat we een. uitwis-functie inbou- 
wen, waarbij we de lengte van 
de string moeten kunnen ver- 
minderen. 


REGEL 10080: deze regel kijkt 
of de DELETE-toets (= de uit- 
wistoets) is ingedrukt. Is dit 
NIET het geval, dan wordt er 
doorgesprongen. 


REGEL 10090: hier bewijst de 
variabele TE zijn nut. Als TE 
gelijk is aan nul, zitten er geen 
tekens in IP$. Er valt dan dus 
niets uit te wissen, zodat we te- 
rugspringen naar 10060 (= 
wachten op een toets, enzo- 
voorts). 


REGEL 10100: het ziet er alle- 
maal ingewikkeld uit, maar de 
praktijk valt mee: allereerst 
wordt een nieuwe IP$ gemaakt, 
waarbij het meest rechtse teken 
ontbreekt, dit is nu dus uit de 
string verwijderd. De overige in- 
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structies in deze regel verplaat- 
sen de cursor één plaats naar 
links. Dit verplaatsen had ook 
gekund met CHR5(20), maar 
aangezien CHR$(20) slechts 
werkt met string van maximaal 
80 tekens, moesten we nu onze 
eigen ’CHR$(20)’ ontwerpen! 


REGEL 10120: de string heeft 
z’n maximale lengte van 255 te- 
kens bereikt, terug naar 10060 
voor de volgende toets (RE- 
TURN of DELETE!). 


REGEL 10130: kijken of de co- 
de van het ingetoetste teken zich 
bevindt in het gedeelte van 31 
tot en met 90, dit zijn de meest 
voorkomende tekens. Hiermee 
worden automatisch alle cursor- 
toetsen en dergelijke uitge- 
filterd. 


REGEL 10140: de test in regel 
10130 is niet gelukt; terug naar 
het wachten op een volgende 
toets. 


REGEL 10150: het ingevoerde 
teken wordt aan IP$ toege- 
voegd. Let op de opdracht ’GO- 
TO 10050’: dit heeft als resul- 
taat dat de cursor op het 
scherm wordt verplaatst. 


Uiteraard doet deze subroutine 
op zichzelf niets nuttigs: als u 
RUN geeft, krijgt u zelfs de 
melding: RETURN WITHOUT 
GOSUB ERROR’. Door echter 
de volgende drie regels in te 
toetsen, kunt u de subroutine 
uitproberen: 

10 print "toets een string 
in’’;:gosub 10000 

20 print ’’de door u ingetoetste 
string was:”’: print ip$ 

30 print:print: goto 10 

Als de routine naar behoren 
werkt, kunt u hem in uw eigen 
programma’s gebruiken, waarna 
u bent verlost van alle eerder 
ondervonden INPUT- 
problemen. 

Veel succes! 








Maandelijkse rubriek met korte programma’s, routi- 
nes en utilities. neee viezen van binnen- 


en buitenlandse pra 


essionals. Lezers helpen lezers. 


Het zijn de kleine dingen die het doen. Tips & trucs 
van lezers worden, indien geplaatst, beloond met 50 


gulden. 


IN- EN UITZOOMEN 


Het onderstaande programma 
laat het scherm oneindig vaak 
krimpen en uitzetten. 

Hierbij wordt gebruik gemaakt 
van de eigenschap dat de 
schermhoogte en -breedte van 


10 FORT =0TO21 

20 POKE3866,1 

30 POKE36867,2*1 

40 NEXT 

50 FORI= 21 TOOSTEP-| 
60 POKE36866,1 


de VIC-20 met POKEs naar de 70 POKE36867,2*1 
lokaties 36866 en 36867 te ver- 80 NEXT 

anderen zijn. 90 GOTO10 
SUPEREXPANDER 


AAN/UIT ZETTEN 


Veel VIC-20 eigenaren zijn in 
het bezit van de 'SUPEREX- 
PANDER’, die onder andere de 
grafische mogelijkheden van de 
computer sterk vergroot. Boven- 
dien zorgt de insteekkaart voor 
3K extra geheugen. Het is mo- 
gelijk de 'expander’ uit te zetten 
— zonder daarvoor de kaart uit 
de computer te hoeven trekken 


PRINT AT 

Het scherm van de VIC-20 
bestaat uit 23 regels en 22 ko- 
lommen (genummerd van 0 tot 
22, respectievelijk 0 tot 21). 
De volgende subroutine helpt u 
bij het printen op een willekeu- 
rige plaats op het scherm. 

100 POKE 782,X 

110 POKE 781,Y 

120 SYS 65520 

130 RETURN 


CASSETTEMOTOR AAN/UIT 


ZETTEN 

Met de volgende twee POKEs 
kunt u de motor van de casset- 
terecorder besturen. 

Voor motor aan: POKE 
37148,252 

Voor motor uit: POKE 37148,0 
U kunt hiermee bijvoorbeeld . 
een programma schrijven, dat 
snel naar een gewenste plaats op 
een cassette spoelt. 

U moet één keer de tijd opne- 
men, die de recorder nodig 
heeft om op het gewenste punt 
te belanden en een wachtlus van 


— waarbij wel de 3K extra ge- 
heugen bruikbaar blijft. 
Daarvoor moet u achtereenvol- 
gens de opdrachten SYS 64850 
en SYS 58232 geven. 

Wilt u later de 'SUPEREX- 
PANDER’ weer inschakelen dan 
kan dit met SYS 64802. 
Hierdoor wordt wel het gehele 
RAM geheugen gewist. 


Stel dat u in uw programma het 
woord ”’HALLO®” op regel 17 
wilt zien, waarbij de eerste 7 
posities blanco moeten blijven. 


U moet dan de volgende op- 
dracht geven: 


10X =6:Y = 16:GOSUB100: 
PRINT” HALLO” 


deze lengte tussen de POKE- 
opdrachten aanbrengen. 
Voorbeeld: 

10 PRINT”DRUK OP "FAST 
FORWARD” 

20 WAIT 37151,64,64 

30 POKE 37148,252 

40 FORI= 1 TO10000: NEXT 
50 POKE 37148,0 


In dit voorbeeld zorgt regel 30 
ervoor dat het programma 
wacht tot er een toets op de re- 
corder ingedrukt wordt. 





WELKE COMPUTER IN 


GEBRUIK? 


Indien u software schrijft voor 
verschillende computer systemen 
is het belangrijk te weten wat de 
daadwerkelijke verschillen tus- 
sen de typen zijn. De VIC 20 
bijvoorbeeld heeft op het 
scherm maar 22 kolommen — 
tegen 40 voor de CBM 64 - 
waardoor het draaien van som- 
mige software problemen 
oplevert. 

Ben oplossing hiervoor is als 
volgt: 


1 SYS 65517 : A=PEEK(781) 


In de waarde van A is de kolom 
breedte van het scherm ingele- 
zen dus 22 voor een VIC 20 en 
40 voor de overige Commodore 
computers. 


KOALA PAD BUTTONS 


Om het alom gebruikte Koala 
Pad ook in eigen programma- 
tuur te kunnen gebruiken kunt 
u met 


PRINT PEEK(197) 


testen welke button van het pad 
werd ingedrukt. Uitkomst ’59’ 
betekent dat de rechtse knop 
werd ingedrukt en ’50’ dat de 
linker knop werd ingedrukt. 


GEHEUGENKAARTEN 
UITSCHAKELEN 


U kunt uw geheugenuitbreidin- 
gen met een aantal POKESs uit- 
schakelen. Hiermee voorkomt u 
dat de connectoren van uw 
kaarten verslijten. Bovendien 
kunt u met bijvoorbeeld een 8K 


642 
standaard 16 
3K 4 
8K 18 
16K 18 
24K 18 


kaart toch een spel dat voor een 
standaard VIC-20 geschreven is, 
inladen en spelen. 


De volgende tabel geeft u alle 
POKEs die u nodig hebt: 


644 648 
30 30 
30 30 
64 16 
9%6 16 

128 16 


Besluit de drie POKEs met de opdracht SYS64824. 


Om de VIC-20 op 8K in te stellen moet u dus bijvoorbeeld de vol- 
gende opdrachten geven: 
POKE642,18:POKE644,64:POKE648,16:SYS64824 

Let op: U kunt een 16K-kaart gebruiken als 8K-kaart, maar niet 
als 3K-kaart. 

De POKEs voor een VIC-20 met 3K uitbreiding werken alleen als 
die uitbreiding ook inderdaad aanwezig is. Geeft u de POKEs 
toch, dan meldt de computer wel dat hij 6655 bytes ter beschik- 
king heeft, MAAR DAARBIJ VERGIST HIJ ZICH! 
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TIPS EN TRUCS 


BEVEILIGING WISSERS 
Een uiterst betrouwbare tip om waarschuwing op zijn plaats. Onderstaande drie miniatuurtjes 
het LISTen en SAVEn van pro- Alleen na omstandig en vooral wissen elk op een andere manier 
gramma’s tegen te gaan. Inzen- deskundig gerommel is een pro- het scherm schoon. Ze zijn uit- 
ding van J.Drenthen uit gramma dat door dit program- stekend te gebruiken in zelfge- 
Kloosterhaar. Juist omdat het ma wordt voorafgegaan alsnog maakte programma’s. Inzender 
programma perfect werkt, iseen te listen. Weet dus wat u doet. is de heer C.Fransen uit Dor- 
drecht, die zelf het meest ge- 
charmeerd is van de laatste. 


10 poke2051,0:poke2052,0shift>/{<spatie>33 100 fort= lto24:ford = 1to10 
20 poke809,255<shift»/<spatiedac 110 poke 781,t:sys59903 
30 poke818,32<shift>/{spatie>95 E i e 120 aeudt 

40 poke53280,9:poke53281,9Cshift>/Cspatie>13 / 

50 printchr$(i47)"kkkk testkkkk"Cshift>/Cspatied69 

60 input”hoe heet je: “sq${<shift>/<spatie>dbc 130 fort = 24tol 

70 print”ik zet je naam 10 x op het scherm”: step-l:ford = 1to10 
print<shift>»/{spatie>24 140 poke781,t:sys59903 

80 fori=itol0{shift>/{spatiedbe 150 nextd,t 


85 printq$<shift>/<spatie>b9 

90 nextig<shift>/<spatie>91 160 pl =0:p2=25:vv= 59903 
100 print:print:print”nog een keer? (j/n)"<shift>/<spatie>dd9 170 fort= lto24:ford = 1to40 
110 geta$:ifa$="“thenit0<shiftd/<spatie>5b 180 nextd 
ifas="j"then50€shift»/{spatie>cc 190 poke 781,pi:sys vv 

1 ifas="n"thenend{<shift>/<spatie>b En 

140 gotolt0shift>/Xspatie>35 En be 


220 nextt 


MEAN ET 









Het beste uit POSTBUS 9194. De programma's die in deze rubriek worden geplaatst, worden beloond met 50 gulden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De gan bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze ‘lopen’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 
besturingstekens zijn voorzien. De beste An ramma's uit deze rubriek kunnen in AI komen om door COMMODORE DOS- 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 
rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 










VERTRAGER 

Alle meldingen komen na het listings als voor andere pro- 
RUNnen van dit programmaatje gramma's. Fraaie inzending van 
lekker langzaam op het scherm. _C.J.Remmers uit Waalwijk. 
Dat geldt dus zowel voor 














forl=67/9to/03:reada:pokelsasnext<shift>/<spatie)7b 
110 poke806,167:poke807,2:poke251,4OXshift>/Xspatieded 
120 data72,138,72,152,72,166,251,240&shift>/<spatiedef 
130 data8,160,255,136,208,253,202,208<shift>/<spatie>20 

140 data248,104,168,104,170,104,76,202,24l&shift>/{spatie>Ob 












BALKENGRAFIEK 
B.Tolsma uit Arum ontwierp de te doen als subroutine in een 
volgende zeer fraaie balkengra- ander programma. 

fiek, die geschreven is om dienst 










100 printchr$C(147):poke53280,11:poke53281,1l:printehersti4ddeprintehrsCiadchrs (8) 
<shift»/{spatiedc2 
105 printchr®(l9)tab(8)"12345678901234567890123456789012"Cshiftd/Lspatiedde 
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LISTINGS VAN LEZERS 





110 printtab(8)chr#(145);:forx=lto32:printchr$(167)srnext:printchr$(19) Cshiftd/s 

spatie>fG 

120 printchr$(145)chr$(145):forzeltol6:print"Week"x:nezt:printchrs(30){shift>/cs 

atie»9b 

730 printchrst1i9rchrst17dchrs17)s:forkeltolb:readz:fory=ltozéshiftd/<spatied55 

135 printtabl8)chr$(18)chr$(163)s:nexty:print:nextxéshift>/{spatie>08 

140 printchr$(144)<shift>/{<spatiede2 
ifvl=ithenreturn<shift»/<spatiedad 
vl=i:printchr$(3l):gosubl304shift>/<spatieddb 
printechr$(28)sgosubl304shift)/{spatied7a 
printtab(8)chr$(145)s:forx=lto32:printchr$(167)ssnextéshift>/<spatiedál 
printtab(48)“12345678901234567890123456789012"<shift>/<spatieda3 
printtab{8)chr$(28)chrs(18)" “schr$C144)Winst"s<shift>/éspatiede0 
printtab(i9)dchr$(3ldehrs(18)” *schr$(144)”"Inkoop"s{<shift»/<spatie>89 
printtab(30)chr$(30dchrsC18)” “schr$(144)”" Verkoop" <shift»/<spatie>fO 
getg$:ifgs$=""then90lgshiftd/{<spatie>bb 

902 run<shift>/{Xspatie>Of 

1000 data 12,14,16,18,19,21,26,23,23,25,19,14,16,18,28,25,8,9,12,13,14,16,18{shi 

ft>/<spatied6d 

1010 datai5.16,17,12,9,11,12,20,18,4,5,4,5,5,5,8,8,7,/,1,5,5,6,8,7Cshift>/éspati 

e>db 


WANDELENDE LETTERS 

Bijgaand programma van AN Het aantal zinnen dat op len die voor elke zin apart wor- kleurenpatroon, 

M.R.Pauw uit Apeldoorn het scherm moet lopen. In het den ingesteld, in het voorbeeld __Rood,wit,blauw,geel is ak=5. 
bestaat uit een subroutine en voorbeeld zijn dat drie zinnen, __ staan deze op 60,62 en 64. RVS Diapositief of niet (j/n). 
een voorbeeld (regel 10-70). Het dus an=3 TE$ Bevat de zin die naar het WS$ Kleurencombinatie per 
programma laat letters van een__HLS$ Hoofdletters, HL$="}", scherm moet lopen, mag niet woord (j) of per letter (n). 
zin naar een bepaalde positie op of kleine letters, HL$="’n”’. langer zijn dan 40 tekens. KL Kleur KL(nummer zin, 
het scherm lopen. Er zijn ver- AC Randkleur, in het voorbeeld KO Bevat het kolomnummer nummer kleur). 

schillende variaties mogelijk. zwart, dus ac =0. (0-40), op deze plaats begint de _Spaties hebben geen invloed op 
Er zijn vier vaste variabelen VO Schermkleur, in het voor- zin. de kleurencombinaties. 

(an, hl$, ac, vo), die in het beeld zwart, dus vo=0 ___RE Regelnummer (0-23). 

voorbeeld op regel 50 staan: Dan zijn er nog zeven variabe- AK Aantal kleuren van het 


10 rem kx wandelende letters Xxx{shiftd/<spatie>d7 

15 dim kl(3,12){4shift»/Cspatie>93 

20 readan,hl$;ac,vo:fori=itoan{shiftd/<spatie>51 

30 readtestij,kolid,relidsaklid,rvs&lid,w$Cij<shift,/Sspatiedca 

40 fork=itoakli)zreadklli,k):inezxt:snext{<shift)/{spatiedl2 

50 data3,j5,0,O<shift»/<spatiehed 

60 data"lees commodore dossier",9,11,3,j,j»2,1,6éshift>/{spatie>95 
62 data"lees commodore dossier",9,9,3,n,n,2,1,64shift>/<spatiedae 
64 data"lees commodore dossier",9,13,12,n,n,2,2,2,2,1,1,1,1,6,6,6,6{shift»/{spat 
iedc2 

70 gosub300send{<shift>/<Sspatie»42 

300 rem k%k uitvoeren kxk(shiftd/{spatiedef 

310 poke53280,ac:poke53281,vo:printchr$(147)<shift>/<spatie»40 

320 fori=ltoan:j=Oskk=0rifw#(ij="j"thengosub8004shift»/{spatied8b 
330 ifhl$="n"thenpoke53272,23<shift>»/<spatie»30 

340 q1=55296+40xreli):q2=1024+40kreClij:g3=q2tkolidtlen(tes(ijd-léshiftd/<spati 
e>b6 

350 ifw$Cid="n"thengosub600{shift»/<spatied0f 

360 fory=itolen(te#(ijd:b$=midf(tesCid,len(tesCijdtley,ld:ifbse=" “thengoto700<sh 
ift>/{spatiedca 

370 iEWSCIJ="n"thenkkekk+isifkkdakCidthenkk=igshiftd/{spatiedd7 
380 r=asc{b$):ifr)6dandr<Iithenr=r=64&shift>»/<spatie>96 

385 ifhl$="n"andr>90thenr=r-1284shift»/<spatie>17 

390 ifrv$Cid="j"thenr=r+1284shift>/<spatied18 

400 forq=q2toq3ti-y:pokeg=1,32<shift>/<spatie>74 

410 gosub50O4shift>/{spatie>23 

420 pokeg,r:forf=ltotO:next:inextsnextsnext{<shift»/{<spatiedc6 

430 return{<shiftd/{<spatie»2l 

500 pokeql+(q-q2),klCi,aklijtiekk)sreturnéshift>/<spatie>b9 

600 forw=itolen(tesCijd:ij=jtigshiftd/<spatie»07 

610 ifmidsttesCi),w,1)=" "thenj=j=i:next<shift)/<spatie>ge 

620 ifj=ak(i)tithenj=i<shift»/<spatiebaa 

630 nezt:kk=aklid=jsreturnéshiftd/{spatie>69 
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700 ifw$Cid="n"thennextéshift»/<spatie>d7 


705 kk=kkti:ifkkbakCidthenkk=l<shiftd/<spatied8c 


710 next{<shift>/{spatied46 


800 forz=ltolen(tesCijd:sifmidsCtesCid,z,1d=" "7 


810 nextsj=jtigshift»/<spatie>b8 


thenj=j+ti<shift»/&spatie»l0 


820 ford=itoj:j=jraklidsifjcakCijtithen840lshift»/Cspatie)f4 


830 next<shift»/<spatie»bbf 
840 ifj=Othenkk=l:sreturnéshiftd/{spatie>98 
850 kk=akClijtlej:sreturn<shiftd/<spatie>6f 


CHARLIE CHAPLIN 

Deze had u nog van ons tegoed. Koek ontwierp hem als voor- 
Door plaatsgebrek moest hij beeld van onze ANIMATIE- 
vervallen uit Commodore Dos- EDITOR uit het betreffende 
sier nummer 4, de SPRITE Fl- _nummer. Een zeer duidelijk 
LE van Charlie Chaplin. Wijo voorbeeld omdat immers juist 


Ll poke5l,0:poke52,di:poke55,O:poke56 
„48:clr<shift»/<spatie»9d 

2 fors=Ôto/:fort=Oto62:readusshift>/ 
<spatiedhed 

3 pokel192K6dIA(sk6AI+t,urnextinextS 
shift»/<spatie»dO 

10 data000,000,000&shift>/<spatie>b9 
Il data000,000,000{shift>»/<spatie>b8 
12 data000,042,000&shift>/{<spatie>b9 
13 data000,042,000{4shift>/{spatie>b8 
14 data000,170,128&shift)/Xspatie>bO 
15 data000,125,064éshift>/<spatie>b8 
16 data000,063,000<snift>»/£&spatie>a6 
17 data000,055,000<shift»/{spatie>a2 
18 data000,063,0004shift>/{spatieba4 
19 data000,042,0004shift>/<spatieda6 
20 data000,170,0004shift>/<spatiedal 
21 data000,170,000Xshift»/{spatie>a0 
22 data000,170,128<shift»/{Xspatie>a8 
23 data000,170,128&shift)»/{spatie>a9 
24 data000,170,128<shift>/<spatie>a6 
25 data000,170,128<shift>/{spatie>a7 
26 data000,170,128<shift>/<spatiedad 
27 data000,170,128{shift>/{spatieba5 
28 data000,170,128&shift>/<spatied>a2 
29 data000,170,128<shift»/<spatie>a3 
30 data000,170,1284shift>/{spatie>a0 
31 reméshift»/{spatied90 

32 data000,170,1284shift»/{spatie)9e 
33 data000,170,128<shift»/<spatie>9f 
34 data002,170,176éshift>/{spatie>95 
35 data002,170,188&shift>/<spatie>95 
36 data002,170,136{shift)»/<spatie>97 
37 data0l0,170,136{shift>/<spatie>95 
38 data010,170,1364shift>/<spatie»96 
39 data010,170,1364shift>/{spatied97 
40 data042,170,136<shift»/<spatie>9f 
41 data042,170,1364shift>/{spatie>de 
42 data042,170,136£shift>/<spatie»>9d 
43 data042,138,136éshift»/{spatie>90 
44 data010,138,1364shiftd/Cspatied90 
45 data010,138,136<shift>»/<spatie>91 
46 data002,170,136{shift>/{spatied9d 
47 data000,170,008<shift)»/<spatie>92 
48 data000,026,0004shift>/{spatie>87 
43 data000,026,0004shift>/{<spatie>86 
50 data001,090,004Xshift»/{spatie>8d 
5l data00l,074,0844snift>/&spatied8e 
52 data000,001,080Cshift>/{spatie»r8e. 
53 wemcshifr»>/éspatle»ba 

94 data000,000,0004shift>/éspatie»85 
55 data000,042,000{4shift>/<spatie>82 


Char 
word 


lie Chaplin beroemd is ge- 
en door zijn manier van 


bewegen. 


data000,042,000Xshift»/<spatied8d 
data000,170,128<shift>/&spatie»87 
data000,125,064éshift>/<Xspatie>8d 
data000,063,000{shift>/<spatie>8d 
data000,055,0004shift>/<spatie>8f 
data000,063,000shlft»/{spatie>8b 
data000,042,000&shift>/{spatie>8b 
data000,042,0004shift»/{spatie»8a 
data000,042,000{shift»/{<spatie>f5 
data000,170,128<shiftd>/{spatiedff 
data000,170,128&shiftd/<spatie>fc 
data000,170,128£shift>/{spatie)fd 
data000,170,128<shift>/&spatie)fa 
data000,170,128<shift»>/{spatie)fb 
data000,170,128{4shift>/<spatie>f8 
data000,170,128{<shift»/<spatie>f9 
data000,170,128{<shift»/<spatiedf6 
data000,170,128&shift>»/<Xspatie>f7 
data000,170,128{4shiftd/{<spatie)f4 
remíshiftd/{spatied>c4 

data000,170,128éshiftd/{<spatiedf2 
data002,170,176{&shift>/{spatiedfa 
data002,170,188<shift>/{spatiedf8 
data002,170,1624shift>»/éspatiedfd 
data002,170,162<shift»/éspatieje2 
data002,1/0,1624shift>/Cspatledes 
data002,170,160€shift>/&spatiede2 
data002,170,160&<shift»/<spatieje3 
data002,170,160éshiftd/{spatieded 
data002,170,160<shift»/<spatiede5 
data002,170,1604shift>/{spatiede6 
data002,170,160<shift>/<spatiede7 
data000,170,128<shift>/{spatiehe6 
data000,170,128<shiftd/<spatiede7 
data000,170,128{&shift>/<spatieded4 
data000,042,0004shift>/{spatiedee 
data000,042,000éshift>/<spatiede9 
data000,042,0004shift>/éspatiedeg8 
data004,042,004&shift»/{<spatiedeb 
data005,106,084éshift>»/{spatiede2 
data001,089,080&shift>/{spatieddb 
rem<shift»/&spatiejee 

data000,000,0004shift>/{spatieddi 
data000,000,000&shift»/{<spatiedd0 


100 data000,042,0004shift>/<spatieddi 


101 
102 
103 


data000,042,0004shiftd/<spatie>d0 
data000,170,128<shift»/<spatie>d8 
data000,125,064{shift»/<spatiedd0 


104 data000,063,008<shift>/<spatie>d6 


105 
106 
107 


data000,055,008{shift»/éspatie»d2 
data000,063,008{<shift>»/{spatie»d4 
data000,042,008<shift»/<spatie>d6 
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123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 


data000,042,136<shift>/<spatieddd 
data000,042,136<shift»/<spatiedde 
data000,170,1364shift>/<spatie>df 
data000,170,136{4shift>/<spatie>de 
data000,170,1364shift»/<spatiejcl 
data000,170,1364shift»/<spatie»c0 
data000,170,1364shift»/Xspatiedc3 
data000,170,1364shift»/éspatie>c2 
data000,170,136<shift>»/<spatie>c5 
data000,170,136<shift»/<spatiercd 
data000,170,1364shlft»/{éspatlie>c7 
reméshift>/{spatie>f8 

data000,170,1844shift>/éspatie>c0 
data000,170,128<shift>»/<spatiedc7 
data000,170,1604shift»/<spatiedcê 
data000,170,1604shifte/<spatie,c? 
data000,170,160Xshift>/{éspatiedce 
data000,170,168<shift»/{<spatie>c7 
data000,170,168{&shift»/<spatiedcd4 
data000,170,1684<shift»/éspatiedc5 
data000,170,170<shift>/<spatied33 
data000,170,1704shift>/<spatie>32 
data000,168,170<shift»/<spatie>38 
data000,168,170<shift»/<spatie»39 
data000,168,168&shift»/<spatie»37 
data000,170,168&shift»/<spatie»3f 
data000,170,1604shift»/éspatie»34 
data000,042,128<shift»/<spatie»39 
data000,041,00Ö&shiftd/éspatied3e 
data000,041,000<shift)>/<spatie»3f 
data004,041,0804<shiftd/{4spatied30 
data005,104,080<shift>/<spatied30 
data001,080,000<shiftd/<spatie) 36 
vem<shift»/{<spatie»02 

data000,000,0004shift»/<spatie>3d 
data000,042,000{4shift>/<spatie>3a 
data000,042,000<shift>/{<spatie>25 
data000,170,128<shift>»/<spatie»2f 
data000,125,0644shiftd/<spatie»25 


LEREN REKENEN 


Nog niet eerder vertoond in dit 
blad: 


data000,063,0004shift>/<spatie>25 
data000,055,000éshiftd>/éspatied27 
data000,063,0004shift>/&spatie»23 
data000,042,0004shift»/éspatie»23 
data000,042,0004shiftd/{<spatied22 
data000,042,000<shift>/<spatie>2d 
data000,170,128{4shift>/<spatie>27 
data000,170,128<shiftd/{<spatie»24 
data000,170,128&shiftd/{<spaties25 
data000,170,128&shift>/<spatie>22 
data000,170,1364shift»/{spatie>2c 
data000,170,136{<shiftd/{spatied2f 
data000,170,136<shift»/<spatie>Ze 
data000,170,136<shift>/{<spatiedll 
data000,170,136&shift>/<spatie>10 
data000,170,184d&shiftd/éspatie»la 
reméshiftd»/{<spatie>2c 

data000,170,128Cshift,/cspatie)la 
data002,170,1604shift>/{&spatie>15 
data002,170,160{shiftd/<spatied16 
data002,170,160{4shiftd/<spatie>17 
data002,170,1604shift»/éspatie»1l8 
data002,170,1604shift»/<spatie»l9 
data002,170,1604shift)»/{spatie)la 
data002,170,1604shiftì/<spatiedlib 
data002,170,160<shift»/éspatiedlc 
data002,170,160&shift»/&spatie>ld 
data002,170,160{4shift>/<spatiedle 
data002,170,1604shift»/<spatie>dlf 
data000,170,128&<shift»/<spatied0e 
data000,170,128<shiftd/{XspatiedOf 
data000,170,128&<shift»/<spatie>0c 
data000,042,0004shift)/{spatie>06 
data000,042,000&shift>/<spatie>Ol 
data000,042,0004shift>/{spatie>00 
data004,042,004éshift>/<spatie>03 
data005,106,084&shift»/<spatied0a 
data001,089,0804shift»/{spatie>03 
reméshiftd/<spatied36 


kenen onder de knie te krijgen. 
een educatief programma. Gebruikertjesvriendelijke opzet. 


Keurig verzorgd programma van Als vader of moeder de compu- 


F.F.J. Nieuwenhof uit Benne- 


ter eenmaal hebben aangezet, 


kom. Het programma helpt kin- vindt de ijverige leerling snel 


deren de beginselen van het re- 


zijn eigen weg. 


LEREN REKENEN 


1000 vem HkkhkkkkkAk kkk dendktekkkkkkkkkkkCshiftd/Cspatiedde 
1010 rem k%kkAAAAKK leren rekenen kikkAAKAKCShift?/<spatie>58 
1020 rem KkhRAARAA AAA AAA AKA AR AAA AA AA KAK CShiftd/Cspatied5a 
1030 reméshift>/<spatied8d 

1040 rem Akkkk sommen met grote cijfers xxxxCshift>/Cspatie>f3 
1050 rem{shiftd/{spatied9! 


1060 rem 
1070 rem 
1080 rem 


frans nieuwenhof<shift»/<spatiedhed 
&Xshift»/{spatie>83 
jan hoolwerféshift>/{spatiedfd 


1090 reméshift»/{spatie>c9 

1100 wrem kkAkK grootste getal (h) (= 99 KkxKkCshiftd/Cspatiedd7 
1119 rem<shift>/{spatie>dd 

1120 print chr$(5)ichr$(147)Cshiftd/Cspatiedci 

1130 sp$=chr$CiJ)+tchrs$Ci7)dtchrs$(17)dtchr$C17)t chr$(17) <shift,/<spatie>3b 
1140 sq$=sp$t+sp$tsp$tsp$<shift>/{spatiedde 

1150 v=53248: h=99Cshiftd/Cspatied66 

1160 poke v+32,0<shift>/{spatiedfa 

1170 poke v+33,0Cshift>/{éspatiedel 

1180 for i=0 to 7<shift>/<spatiedd4di 

1190 poke v+39+i,l4shift»/éspatie>3d 
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1200 next i{shift>/<spatie>7f 

1210 print sp$<shift>/<spatie»00 

1220 input”hoe heet je “in$éshift>/{spatie>65 

1230 print chr$(147);sp$;"dag “in$Xshift»/éspatie»b3 

1240 printéshift>/<spatie»45 

1250 print 'wij gaan sommen maken” {<shift»/{<spatie>59 

1260 printéshift>/<spatie»71 

1270 print chr&(i47);sp$s"even wachten “inss” see. "Cshift>/<spatie>86 
1280 reméshiftd/{spatied8a 

1290 rem kXkkX data in geheugen poken kkkkxshiftd/éspatiedde 
1300 rem kk%*4X blok O to 9 is cijfer O tot 9 kkxxKCshiftd/<spatiedch 
1310 vem XkkkK blok 10-14 is = + = % / KkKAKCShiftd/<spatied93 
1320 reméshift>/{Xspatie>a2 

1330 i=0: m=240<shift»/CspatiedOf 

1349 read q{shift>/{spatiedef 

1350 if q=-1 then 13904shift>/{spatie>ld 

1360 poke mk64tisg<shift»/<spatie>bf 

1370 i=itiéshiftd>/{éspatie>76 

1380 goto 13404shiftd/<spatiedee 

1390 print chr$(147)isp$<shiftd/{spatiedla 

1400 print“hoe groot mogen de sommen”<shift>/{spatie>bf 

1410 input”zijn (tussen 10 en 99)..."sh$shift>/Cspatie>6d 
1420 h=valCh8):if h<1O or h>99 then 1390Xshift>/{spatied75 
1430 reméshift»/<spatiedlc 

1440 rem kAAKK teken Kiezen kkkkx{shiftd/Cspatie>bd 

1450 remtshift>/<spatie»20 

1460 print chré&(147)ssq${shift>/éspatie>cl 

1470 for i=0 to 3Xshiftd/{<spatie>66 

1480 poke v+l+2ki,25xi+l0Oéshiftd/éspatiedbf 

1490 poke v+2ki,100<shift>/<spatie>76 

1500 poke 2040ti,mtil+igshift>/{spatie>83 

1510 poke v+21,(peek(v+21)) or 2<shift>/Sspatiedff 

1520 next iéshift>/Xspatie>3e 

1530 print“welke sommen wil je maken "in$53” ?2°Cshiftd/Cspatie>65 
1540 print<shift»/<spatie>9b 

1550 print“druk de gewenste toets in "schr$(18)5” fi f3 fB f 

7 "<shift>/Xspatied15 

1560 reméshift>/{<spatie>9l 

1570 rem kkkkk sommen genereren kkkkkCshiftd/Cspatiedfb 

1580 rem<shift>/<spatieda5 

1590 get t$: if asclt$+” *“) € 133 or asc{t$#t” “) > 136 then 15904shift»/éspat 
ie>4d e 
1600 on asc(t#)-132 goto 1610,1660,1710,17604shiftd/{spatiedse 
1610 rem ++++t+ optellen +++tt&shift>/{spatie>c6 

1620 gosub 2730Xshift>/{<spatie>d9 

1630 if atb>h then 1620<shift>/Xspatie>2i 

1640 r=atb: t=ilshift»/{spatie>fb 

1650 goto 1800Xshift>/Xspatiedf4 

1660 rem aftrekken <shift>/<spatie>ba 

1670 gosub 2730{shift>/éspatie>0b 

1680 if boa then 1670shift>/Xspatie>08 

1690 r=a-b: t=i2<shift>/{spatie»0b 

1700 goto 1800Xshiftd/{spatie»22 

1710 rem XXXAA vermenigvuldigen AXkxxXshift>/{spatie>20 

1720 gosub 2730{Xshift>/{spatied35 

1730 if axb>h then 1720Xshift>/Xspatie>ba 

1740 r=akb: t=13<shift>/{<spatie>5b 

1750 goto 1800Xshift>/<Xspatie>50 

1760 rem ///// delen /////<shiftd/{spatie>2f 

1770 gosub 2730{shift>/{Xspatie>67 

1780 if Cb>a) or (la/b)hintla/b)) then 1770Xshift>/{spatie)6a 
1790 r=a/b: t=l44shift>/{spatied6f 

1800 gosub 2790<shiftd/<spatie»8e 

1810 for i=0 to 7Xshiftd/{spatiedcc 

1820 poke v+2xi+l,75shiftd/<spatie>l2 

1830 next i{shift»/{spatiehea 

1840 rwreméshift»/<spatie)b8 

1850 rem XAAXK sprites op het scherm zetten kkxx*Cshiftd/{spatie>b8 
1860 rem kkAAK a op het scherm kkkwwlshiftd/Cspatiedc9 

1870 vem<shift>/<Cspatiedc6 

1880 print chr$(147){shift>/{spatie>32 

1890 n=0:dza:s=O:gosub 2380<shift>/{<spatie>71 

1900 reméshiftd/{spatieded 
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1910 
1920 
1250 
1940 
1950 
1960 
1970 
1980 
1930 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
21/0 
2180 
2130 
2200 
2210 
2220 
4230 
2240 
2250 
2260 
4270 
2280 
2230 
2300 
2310 
2320 
2330 
2340 
2390 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 


vem KAXXK teken op het scherm XXx%*Xshiftd/<spatiedeb 
rem<shiftd»/4spatie>08 

gosub 2500Xshift>/{éspatie»07 

reméshift>/<spatie>lc 

vem kxtxx hb op het scherm kxxxxCshift>/<spatie>10 
vem{shiftd/<spatie>20 

d=b:gosub 2380<shift>/éspatie)bf 
vem{shift>/{Cspatie)34 

Lem AXXXX (=) op het scherm #%Xk&4{shiftd/éspatie>36 
reméshift>/{spatie>58 

t=i0:gosub 2500Xshift»/{spatied8a 
rem<shift>»/<spatie)6c 

rem Xkkk% antwoord invoeren kkAkACshift»/{spatie>7e 
rem{shiftd/<spatie>70 

r$=""<shift>/<spatie>ce 

for j=i to 2shift>/{spatiedda 

get z${<shift>/{spatiedci 

if z$="" then gosub 2650Xshift>/éspatieddd 

if j=l and z$=chr$(13) then 2070<shift»/<spatied65 

if z&=chr$C13) then 2180éshift»/{spatie»l3 

if zelchrs(48) or z$>chr$(57) then 2070{shift»/{spatie>a3 
d=val(z$)<shift»/<spatie>0c 

poke v+21,(2n-1)) or (peek(v+21)){Xshiftd/éspatieddb 
gosub 2380Xshift»/{spatie>d0 

r$=r$+Z8: s=s-i{shiftd/<spatie)la 

next j{shiftd/<spatie>b0 

reméshift>/{spatiedfd 

rem Xkkkk antwoord bevoordelen X%XkkXshiftd/Cspatie>27 
rem<shift>/<spatie>09 

poke v+21,{2n-1)) or (peek(v+21d){4shiftd/Sspatiedll 

if vallrs)Or then 2260Xshift>/Cspatie>62 

an$=" g 0 e d zo "sbn$="e som op .….….."<shift>/{spatie>8a 
gosub 2870<shift»/{<spatied3e 

gosub 2790shift>/{spatie»49 

on asc{g$) = 132 goto 1600,1430,1390Xshift>/Cspatiedef 
an$=" f o u t “:bn$=" antwoord op “<shift»/{spatiede8 
gosub 2870{shift>/{<spatie>56 

on asc{gs) = 132 goto 2310,2290,22904shift>/{spatiedc7 
gosub 2790Sshiftd/<spatied7b 

on asc{g$)- 132 goto 2300,1430,1390Xshiftd/{spatieddf 
n=n=len(r$)<shift>/<spatie>a2 

for Ken to ntlen(r$)=i{shiftd/<spatiejdl 

poke v+2i,not(2} and Cpeek(v+21))Sshift>/<spatiedbb 
next K<shift»/<spatieded 

print chr$(147){shift>/Cspatied da 

goto 2030<shift>/<spatie>b9 

rem<shiftd/Cspatiedcd 

rem kkk subroutine cijfers aanzetten XXAk&Cshift)»/{Sspatie>c8 
rem<shift»/<spatie>d0 

d&=strs(d){shiftd/Cspatied3a 

for i=2 to len(d$){shift>/{spatie>2d 

poke 2040+n,val(mid$(d$,i,1))tmshift>/{spatieddá 
x=lntits)k2d<shiftd/<spatiedla 

if x>=256 then gosub 2600{shift>/{spatiedde 

poke vt+2xn,xéshift>/<spatie>54 

poke v+21,(peek(v+21iddor2éshift>/(spatied8e 

n=n+i:next iéshift>/{spatied77 
sestisreturn<shift>/{spatie»24 

rem<shift>/<spatie>3c 

rem XX%kx subroutine teken aanzetten kkkukshift>/{spatie>53 
reméshift>/{spatied48 

poke 2040+n,m+t<shift>/{spatie)3b 
x=inti+ts)k244shift>/{spatied86 

if x>=256 then gosub 2600éshift>»/{spatie)Z2a 

poke v+2án,x<shift»/<spatied30 

poke v+21,(peeklv+21)) or 2shift>/{spatiedil 
n=ntl:s=stigshift>/{<spatie)3a 
return{éshift»/{spatie>90 

rem{shift)>/<spatie>9b 

rem KXkxx subroutine msb kkkkx{shift»/Cspatiedeb 
vem{shift>/{spatie>b7 

x=x-256<shift»/Sspatiedle 

poke v+16,(peekCv+16)) or 2shift>/{spatie>57 
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return<shiftd/{spatierdá4 
rem %kkkk subroutine knipperen kkkkkCshift»>/<spatied95 
qg=ati4shift>/{spatie»47 


if q{7 then 2720{shift»/{spatie>da 
poke v+21,C(not(2n-1))) and Cpeek(v+21)){shift>/{spatie»45 
if alii then 27204shift>/4spatie>dl 
poke v+21,(2n=1d) or Cpeek(v+21)) shiftd/{spatied07 
q=O{shift>/{spatiedd4f 
return{shift»/<spatie>24 
reméshift>/<spatied2f 
vem xkkkx subroutine random kkXAXCshiftd/Cspatie>30 
reméshift>/<spatie>3b 
asint(rndil)xh)+igshift>/<spatie»7l 
b=int(rndli)kh)+igshift>/Cspatied68 
return{<shift>/<spatie>58 
rem<shift»/éspatie>63 
rem Xkxkk subroutine sprites uitzetten AXkxx{shift>/{spatie>69 
rem<shift>/<spatied7f 
poke v+21,0{shift>/{<spatie»7b 
for i=0 to 7<shift>/{spatie>de 
poke 2040+i,0{shift>/{spatie»7d 
next i<shift>/{spatiede2 
print chr$(147): veturn<shift>/{spatiedfe 
rem<shiftd/{<spatiedb2 
2880 rem AkkAk subroutine tekst kkkkxCshiftd/{spatied83 
2890 rem<shiftd/éspatiedce 
2900 print chr$C(147)issps$<shift>/{spatied2e 
2910 print tab(5)ssq$san$sichr$(32)ichrs$(32)insshift>/Cspatied2f 
2920 print:iprint“druk voor volgend"sbn$ichr$(18):” fl “<shift»/<spatieda3 
2930 print:print”druk voor andere sommen op ..."ichr&(18)5” 
£3 “Cshift>/<spatiedea 
2940 printsprint”druk voor nieuw maximum op ..."schr$(18):” 
f5 "<shiftò/<spatiede4 
2950 get g$: if asclg8+" ") C 133 or asc{gs+” “} > 135 then 2950£shif 
t>/{<spatiebe3 
2960 return<shiftd/<spatie>15 
23970 rem<shift>/<spatiedle 
2980 rem kkkkAAKAAK data AAAAAAAAAKCShiftd/Cspatied30 
2990 rem4shift>/{spatied2a 
3000 rem OCshift>/<spatie>0c 
3010 data 0,126,0,0,255,0,3,255,192,7,129,224,14,0,112,14,0,112,28,0,56,28,0,56 
<shift>/éspatie>63 
3020 data 56,0,28,56,0,28,56,0,28,56,0,28,56,0,28,28,0,56,28,0,56,14,0,112{shif 
t>/{spatie>56 
3030 data 14,0,112,7,129,224,3,255,192,0,255,0,0,126,0,04shift»/<spatie>4d0 
3040 rem I<shift>/{<spatie>55 
3050 data 0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0 
<shift>/{spatie)>de 
3060 data 0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0 
<shift>/{spatie>50 
3070 data 0,56,0,0{shift>/{spatie>69 
3080 rem 2<shift>/<spatie>b9 
3090 data 0,62,0,0,255,0,3,255,192,7,0,224,14,0,112,28,0,112,0,0,112,0,0,112 
<shift>/<Xspatie>80 
8100 data 0,0,224,0,1,192,0,3,128,0,7,0,0,14,0,0,28,0,0,120,0,1,224,0,7,128,0 
<shift>/Cspatieda6 
3110 data 15,0,0,31,255,240,31,255,240,31,255,240,0éshift>/éspatie>9b 
3120 rem 3Xshiftd/C{spatied80 
3130 data 0,62,0,0,255,128,3,255,192,7,128,224,14,0,112,0,0,112,0,0,112<shift> 
/{spatie>8c 
3140 data 0,0,224,0,7,224,0,31,192,0,31,128,0,3,224,0,0,112,0,0,56,0,0,56£shi 
ft>/{spatiejed 
3150 data 0,0,56,56,0,56,60,0,112,31,255,240,15,255,192,0,255,0,0shift»/{<spa 
tie>fe 
3160 rem déshift»/Cspatlebef 
3170 data 14,0,0,14,0,0,14,0,0,14,0,0,14,0,0,14,0,112,14,0,112,14,0,112{shlft 
»/Xspatie>c3 
3120 data 14,0,112,14,0,112,15,255,240,15,255,240,15,255,240,0,0,112,0,0, 1126 
shift)»/<spatieje3 
3190 data 0,0,112,0,0,112,0,0,112,0,0,112,0,0,112,0,0,112,0éshift>/{spatiec3 
3200 rem S5<shift>/<spatie)36 
3210 data 31,255,192,31,255,192,31,255,192,28,0,0,28,0,0,28,0,0,28,0,0,28,254 
„OXshift>/{<spatie>2a 
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3220 data 29,255,0,31,199,128,31,1,192,30,0,224,0,0,224,0,0,224,0,0,2244shift 
»/{spatie»20. 

3230 data 0,0,224,0,0,224,30,1,192,15,3,192,7,255,128,0,254,0,0Cshift»/{Sspati 
e»29 

3240 rem 64shift»/Cspatle,ld 

3250 data 0,63,128,0,255,128,1,224,0,3,192,0,7,128,0,7,0,0,14,0,0,14,60,04shl 
ft>/<spatle>i7 

3260 data 30,255,0,31,255,128,31,3, 192, 30, 0,224,28,0,112,28,0,112,28,0,11245 
hift»/éspatlie>3d 

3270 data 28,0,112,28,0,112,31,0,224,19,131,192,7,259,192;1,255,0,0ahift»/(5 
patie>7e 

3280 rem en 

3390 data 7,255,240,7,255,240,7,255,240,0,0,112,0,0,224,0,1,192,0,3,1284shif 
t>/{sparle>63 

3300 data 0,7,0,0,14,0,0,28,0,0,28,0,0,56,0,0,112,0,0,112,0,0,224,0,1,192,04s 
hifto/tnet esse 

3310 data 3,128,0,3,128,0,7,0,0,14,0,0,14,0,0,0{shift)/Xspatie>d da 

3320 rem 8Xshift>/{<spatied43 

3330 data 0,126,0,1,255,128,3,255,192,7,129,224,7,0,224,14,0,112,14,0,112éshi 
ftò/<spatie>bO 

3340 data 15,0,240,7,255,224,3,255,192,3,255,192,15,195,240,30,0,120,28,0,564 
shift>/{spatie>87 

3350 data 28,0,56,28,0,56,30,0,120,15,0,240,15,255,240,7,255,224,1,255,128,0& 
shift»/<spatie>8f 

3360 rem Mshift>/<spatie>9b 

3370 data 0,255,128,3,255,224,3,193,240,7,0,248,14,0,56,14,0,56,14,0,56,14,0, 
56<shift»/{spatie>83 

3380 data 14,0,56,7,0,120,3,192,248,1,255,248,0,255,120,0,60,112,0,0,1124shif 
t>/{<spatie>b5 

3390 data 0,0,224,0,1,224,0,3,192,0,7,128,1,255,0,1,252,0,0{shift>/<spatie»83 
3400 rem = (blok 10){4shiftd/Xspatiedfd 

3410 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0<shift>/{<spatie>f0 
3420 data 31,255,252,31,255,252,31,255,252,0,0,0,0,0,0,0,0,0,0,0,0{shift>/{sp 
atie>d7 

3430 data 31,255,252,31,255,252,31,255,252,0,0,0,0,0,0,0,0,0,0{shift>/{spatie 
ded 

3440 rem + (blok Li)éshift»>/{<spatie>d2 
3450 data 0,0,0,0,0,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0,0,56,0Xshift> 
/<spatie>f7 

3460 data 31,255,240,31,255, 240, 31,255,240,0,56,0,0,56,0,0,56,0,0,56,0{shift» 
/<spatied0c 

3470 data 0,56,0,0,56,0,0,56,0, ‚0,0,0,0,0,0,0Xshift»/<spatie>1f 

3480 rem = (blok 12) tsnift>/Cspatiedsf 

3490 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,04shift>/ 
<spatie>00 

3500 data 0,0,0,0,0,0,31,255,240,31,255,240,31,255,2404shift>/éspatie>24 
3510 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0éshift»/{spatlie>08 


em * (klok 13)Xshift?/{spatie>61 

3848 KEP *oBlgkolB BIED! fAPBELE SLO, 112,3, 128,224,1,193,192,0,227, 128Cshi 
ft>/{spatied6hb 
3540 data 0,119,0,0,62,0,0,28,0,0,62,0,0,119,0,0,227,128,1,193,192shift>/{sp 
atie>5c 
3550 data 3,128,224,7,0,112,14,0,56,0,0,0,0,0,0,0,0,0,04shift>/{spatied6f 
3560 rem / (blok 14)éshift>/{spatieddb 
3570 data 0,0,0,0,0,0,0,0,0,0,60,0,0,60,0,0,60,0Xshift>/{spatie>66 
3580 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,04shift>/{spati 
e>42 
3590 data 0,60,0,0,60,0,0,60,0,0,0,0,0,0,0,0,0,0,04shift>»/Xspatie>8d 
3600 data =I{<shift>/<spatie>81 
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Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als u ze op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 GC, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 80 tekens per 
sekonde en de fluisterstilte onder het printen. 

Zoveel kompleetheid in zo’n klein maatje, dat blijkt 


overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand 















































adres. Adviesprijs f 695,- ex. btw. BROTHER INDUSTRIES LTD, NAGOYA/JAPAN 
mennen nnnennnnnnnnenneenennennenneenenmene en 
BON: a oor rore con en | 
= Ik wil meer informatie over de HR-5. Ì 

Naam: / 
I 

Adres: 
1 

Postcode: Plaats: | 
I 





Opsturen naar: Brother International (Nederland) BV. Postbus 600, 1180 AP Amstelveen. 


ed Jd Battery powered en netvoeding. 


Brother International (Nederland) BV, 


Zanderij 25-27, 1185 ZM Amstelveen. Telefoon 020-474471* 





Brother Industries Ltd. Nagoya, Japan. 
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Ahonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg van ae op 
aans 


hoogste / regels van 2 


IK ZOEK SOFTWARE 

® Tegen kl. vergoeding software gevr. 
voor de CBM-64. Lijst en prijsopg. naar 
l.van Loenhoud, Frankenhorst 27-C, 
2171VD Sassenheim. 


@® Beginneling zoekt software (liefst spel- 
letjes voor cassette en disk). Te ruilen is 
ook mogelijk. K.de Eerste, Reiger 69, 
1628 BG Hoorn NH. 


® Gevr.: zakelijke programma’s bv. admi- 
nistratie, grafieken, etc. Tegen vergoeding 
of te ruilen. Manfred Maoyer, Stavoren- 
plantsoen 12, 1131 KM Volendam. 


® Ik zoek allerlei software voor de C-64. 
Stuur aanbiedingen met prijs naar M.Ste- 
vens, Steenstraat 55, 6921 LB Duiven. 


® C-64 bezitter zoekt zakelijke program- 
ma’s (bijv. faktureerprogramma's).J.Jan- 
sen, Bongersstraat 28, 7074 ON Ulft. 


® Gevr.: database, spreadsheet, tekstver- 
werker uit Commodore Dossier 0 of 1 te- 
gen vergoeding of te ruilen. Tel: 
01198-1518. 


® Wie heeft voor mij een goede neder- 
landstalige spraaksynthesizer tegen een 
redelijke vergoeding of te ruilen. Tel.: 
043-212840. 


® Wie kan mij helpen aan een program- 
ma facsimile voor zend en ontvangst of 
programma weersateliet ontvangst.A. Ras, 
Solmsbolwerk 14, 4651 AE Steenbergen 
NB. Tel: 01670-64452. 


® Ik zoek spelletjes en programma’s op 
cassette voor de Vic-20 + snellader. 
J.Heijink, Schefferlaan 1, 7771 CW Har- 
denberg. Tel: 05232-64704, 


® Ik zoek Vic-20 software spel en utility 
(liefst met een turbo). Appie Otten. Tel.: 
040-540366. 


@® Wie heeft vaor C-64 een goed bridge 
programma op cassette. M.Schiphorst, Ka- 
pelstraat 106, 3572 CP Utrecht. Tel.: 
030-1719585. 


® Gezocht op tape: karaktergenerator uit 
Commodore Dossier Aktief van juli. Event. 
tegen vergoeding of te ruilen. F.Sijtema. 
Tel: 05178-3495. 


@ Ben op zoek naar spectrumanalyzer 
die Adam Curry in Countdown gebruikt. 
Tevens zoek ik een programma dat aantal 
beats per minuut geeft voor interfacing 
met Hifi. Tel: 02550-12232, 


® Ik zoek software voor de CBM-64 
(Cass. of disk). Event. ook ruilen. Stuur 
lijst en info naar K.vd Eeden, J.de 
Smitstraat 35, 4388 NA Oost-Souburg. 


® Ik ben op zoek naar educatieve spel- 
len en naar programma’s over astrologie. 
Letty van Egmond. Tel.: 071-122039. 


®@ Gevr.: gratis listings over en van spel- 
letjes en zakelijke programma’s. Ben zelf 

in het bezit van 300 spellen. Listings stu- 
ren naar S.Francen, Wijchmaalsebaan 36, 
B-3588 Eksel (Belgie). 


ave. Een advertentie mag ten 
agen lang zijn. 


® Gevr.: Geintegr. zakelijke programma’s 
op disk voor de C-64 (bijv. Vizastar). 
B.Elzenaar, Postbus 1514, 1000 BM 
Amsterdam. Tel.: 020-2798566. 


© Ik zoek goede programma's bij voor- 

keur beeldadventures of een snelle data- 
base op band voor C-64 tegen kl.vergoe- 
ding. G.Laurens, Utrechtsestraatweg 20, 
3958 BP Amerongen. 


® Ik zoek voor mijn CBM-64 een CPM 
operating system (disk en cartridge). Hans 
Leemans, Molenstraat 15, B-9900 Eeklo 
(Belgie). Tel: 091-1771516. 


@ Wie kan mij helpen aan educatieve 
software of listings ervan. J.Stauten, Mi- 
lanenhorst 48, 2317 CG Leiden. Tel.: 
0714-212151 (na 19.00 uur). 


® Gevr.: software voor C-64 oa. dam- 
men, schaken en com-in 64 op casseite. 
Onkosten worden vergoed. J.Slotman, Pla- 
taan 10, 7681 HG Vroomshoop. 


© Wie kan mij adventure games toestu- 
ren voor ZX81 ?. A.Dumarez, Dage- 
raadstraat 41, B-2800 Mechelen (Belgie). 


® Ik zoek een programma voor platen- 
bestand op GBM-64. Event. tegen vergoe- 
ding. A.Muitwijk, Escamplaan 173, 2547 
GD ’s Gravenhage. Tel.: 070-235162. 


® Wie kan mij helpen aan een module of 
programma waardoor mijn C-16 geschikt 
is voor C-64 software. A.J.Slingerland. 
Tel: 01807-22337 (na 17.00 uur). 


@® Waar zijn C-16 gebruikers? Ik zoek 
software! Bert Mijnhout, Straatweg 2, 
Breukelen. Tel: 03462-64460. 


® Ik zoek een autostariprogramma voor 
cassette (CBM-64). Stuur listing naar 
E.J.Post, Boreelstraat 66, 3039 WL Rot- 
terdam. 


© Wie kan mij tegen kl. vergoeding hel- 
pen aan de database uit Commodore Dos- 
sier nr.0. K.van Loon, R.van Rappardlaan 
1, 6865 BV Doorwerth. 


© Wie kan mij tegen vergoeding helpen 
aan programma’s voor de CBM-64 (op 
cassette). M.Jespers, Abtsherbergstraat 5, 
B-2500 Lier (Belgie). Tel.: 03-4897066. 


® Ik zoek grafische 3-D tekenprogram- 
ma’s. Tevens naar CBM-64 versie van si- 
mulatieprogramma’s PSI en Grit van TH- 
Delft. H.de Vries, Bosb.Toussaintplein 21, 
2624 DD Delft. Tet: 015-6205665. 


® Gezocht tegen Kl.vergoeding flightsimu- 
lators op disc. F.A.Kwinten, Rijnsburger- 
weg 29, 2341 AA Oegstgeest. 


® Gevr.: tekst-adventures. Zelf wil ik 
150 spelletjes op cassetes voor C-64 
voor ruiling aanbieden. P.Mannie, Robyn- 
dijk 18, 4706 LW Roosendaal. 


@ Gezocht: tekenprogramma’s voor 
GBM-64 met print mogelijkheid. Tevens 
500 programma’s op cassttes te ruiling. 
C.Kevenaar, Strevelsweg 80-A, 3075 AM 
Rotterdam. 


IK WIL RUILEN 


® Ik bezit een groot aantal speelpragram- 
ma's. Stuur je lijst naar Bernard Vries, 
Tramstraat 16, B-8060 Zwevezele (Bel- 


„ gie).Tel.: 051-611474. 


® Gezocht: meisje om software te ruilen. 
Ben in het bezit van 1000 arcade-spellen. 
Kurt Vandorpe, Guldensporenstraat 27, 
B-8020 Oostkamp (Belgie). 


@ Ik wil graag CBM-64 software op cas- 
sette ruilen. Ik heb plm 250 program- 
ma's. Fred Rutting, Steendijk 83, 9404 
AC Assen. Tel.: 05920-15039. 


@ Wie wil spelletjes voor de CBM-64 (ta- 
pe) ruilen? B.Oude Veldhuis, Handelstraat 
63-11, 3533 GH Utrecht. Tel: 
030-934781. 


® Te ruilen software (tape en disk) voor 
de CBM-64. Ronnie Duindam. Tel: 
070-671991 (na 16.00 uur). 


© Ik wil programma’s (disk en tape) voor 
CBM-64 ruilen. Ik zoek alleen personen in 
het Antwerpse om te ruilen. Erik Bergh- 
mans, Wenenstraat 23, B-2710 Hoboken 
(Belgie). Tel.: 03-8275988. 


® Ik wil graag CMB-64 software (op cas- 
sette) ruilen. Zelf heb ik plm 800 pro- 
gramma’s. M.A.Wiering, Beethovenlaan 7, 
1741 HT Schagen. Tel.: 02240-96000. 


® CBM-64 software op cassete + lijst 
opsturen naar F.P.Wijngaarden, Stokerij 
95, 8401 EE Gorredijk. Cassette + mijn 
lijst met andere programma’s binnen 2 
weken retour. 


@ Gezocht: meisje om programma’s en 
ideeen uit te wisselen. Heb pim 1000 
programma’s. Bart Willems, Duinker- 
kestraat 19, B-8480 Veurne (Belgie). 


®@ Zoek Poke nr voor CBM-64.Stuur de u 
bekende nrs aan mij en ik retourneer u 
alle aan mij bekende nrs van dat mo- 
ment. Svp postzegel bijsluiten. Marcel 
Stroeve, Postbus 49, 7460 AA Ryssen. 


® Software voor C-16 te ruilen. Ook im- 
port. Stuur je lijst naar Hein Slabbers, 
Burg Passtoorsstraat 26, 4835 KG Breda. 


@ CBM-64 software te ruilen. Stuur je 
lijst + cassette naar Rene Hage, Ru- 
bensstraat 39, 3351 JT in Papendrecht. 


@ CBM-64 software (op disk) te ruilen. 
Jan Lammersma. Tel: 03240-18557. 


© Software (plm 2000 programma’s) te 
ruil voor GBM-64. Ook handleiding te ruil. 
Gevr. handleiding Petspeed en printshop. 
Stuur je lijst naar E.Preso, Vletweide 118, 
3981 ZN Bunnik. Tel.: 03405-63879. 


® Ik wil spelletjes voor de CBM-64 rui- 
len. Stuur je lijst naar Jan vd Wouw, 
Noordstraat 86, 5038 EK Tilburg. Tel: 
0193-423833. 


® Ik wil graag CBM-64 software (op cas- 
sette) ruilen. Zelf heb ik plm 500 pro- 
gramma's. Stuur je lijst naar Roger Eyk- 
houdt, Raadhuisstraat 118, 6336 VN 
Hulsberg. 


© CBM-64 software te ruil. Keuze uit plm 
400 titels (geen disk). Stuur lijst naar 
M.Hoogstad, Blauwe Torenstraat 25, 


1241 BD Lochem. 


® Ik wil graag CBM-64 software ruilen 
op cassette. Bezit zelf plm 200 pragram- 
ma’s. Stuur lijst naar B.J.Slagt, Krachtig- 
huizerweg 17, 3881 PC Putten. Tel: 
03418-52106. 





® Ik zoek mooie en goede programma’s 
op tape. Stuur je lijst naar Paul Koster, 
Herculesstraat 33, 19/3 VM Ymuiden. 


© CBM-64 software te ruil. Plm 1000 
programma’s op cassette. Stuur je lijst 
naar W.vd Weetering, Schapenmeent 
107, 1357 GK Almere. 


@ CBM-64 software (disk en cassette) te 
tuil. Stuur je lijst naar W.de Jonge, Maris- 
hof 32, 7131 TK Lichtenvoorde. Tel.: 
05443-59893. 


® CBM-64 software (veel titels) te ruil. 
P.Cesar, v Bylandtstraat 127, 2562 GB 
’s Gravenhage. Tel. 070-457967. 


® Ruilen: Wie wil met mij CBM-64 soft- 
ware ruilen? Het liefst in Amsterdam. Ik 
bezit plm 550 spellen. Tet: 020-371370 
of via Viditel (Vidibusnummer 
400022057). 


® Ik wil CBM-64 software ruilen. Bezit 
pim 400 programma’s op tape. Stuur je 
lijst naar Ronny Rutten, Schoolstraat 8, 
6596 AP Milsbeek. Tel: 08851-17121. 


@ Wie helpt mij aan de programma’s uit 
Commodore Dossier nr. 0-1-2-3. Ik bezit 
een C-64 en wil ruilen tegen andere pro- 
gramma’s (plm 1100, enkel disk). 
Th.Franck, Gretrystraat 7-Bus 10, B-2018 
Antwerpen (Belgie). 


® Ik wil goede software voor de C-64 
ruilen. Ik bied ruim 1000 programma’s op 
tape en op disk. Stuur lijst met je tele- 
foonnr. naar J.Brakenhaff, Punterstraat 7, 
1826 CJ Alkmaar. 


® Te ruilen C-64 software. Diverse spelen, 
talen en gebr.programma’s. Stuur je lijst 
naar Bert Smit, Prof K Onneslaan 117-B, 
3112 VD Sciedam. Tel.:010-269123. 


© CBM-64 software (plm 100 program- 
ma’s op disk) te ruilen. Stuur je lijst naar 
T.Emmers, Rubenslei 28, B-2018 Antwer- 
pen (Belgie). 


® Zeer goede C-64 programma’s te ruilen 
tegen bioritme, horoscoop en astrologie 
programma's. R.Schepers, Apollostraat 
15, 3204 CB Spykenisse. Tel.: 
01880-17115. 


® CBM-64: Ik heb 1500 programma’s 
(disk en tape) en wens te ruilen. Stuur 
lijst naar Y.Type, Spalaan 19, b-8400 
Oostende (Belgie). 


® Ik wil spelletjes voor de C-64 ruilen. 
Stuur je lijst met telefoonnr. naar David 
Huygh, Laudinnestraat 9, B-1712 Vlezen- 
beek (Belgie). Tel: 02-5692037. 


®@ CBM-64 software (plm 700 program- 
ma's op disk) te ruilen. Stuur lijst naar 
D.Vanderhaegen, Nijverheidsstraat 116, 
B-1800 Vitvoorde (Belgie). Tel: 
02-2513118. 


® Ik wil graag CBM-64 software ruilen 
voor tape of disk. Stuur lijst naar 
R.Schoubben, St Truidersteenweg 118, 
B-3700 Tongeren (Belgie). 


@ Wie wil programma’s (cassettes) met 
mij ruiten. Stuur lijst naar Edgar van As- 
selt, Korenbloemiaan 13, 6713 DW Ede. 


®@ Te ruilen programma’s voor de C-64. 
Stuur lijst naar J.Moorrees, H Segherslaan 
39, 7944 LH Meppel, 


® Ik wil graag leuke en mooie spelletjes 
voor de C-64 op tape ruilen. Stuur lijst + 
cassette naar Gerwin Janssen, Goudenre- 
genlaan 9, 5582 BA Waalre. Tel. 
04904-15400. 
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COMMODORE 


® Ik zou graag software (spelletjes op 
cassette) willen ruilen. Stuur lijst naar 
Mark Messagie, Regulus 12, 4501 GV 
Oostburg. 


© Ruilen software (alleen op cassette) 
voor CBM-64. P.Boer. Tel: 010-147738. 


® Ik wil graag C-64 software (300 pro- 
gramma’s op cassette) ruilen. Stuur lijst 
naar Edwin van Saanen, Kramerstraat 29, 
1502 TM Zaandam. 


@ CBM-64 software (600 programma’s 
op cassette) te ruilen. Stuur lijst naar 
R.van Asperen, Nieuwstraat 28, 3243 AN 
Stad a/h Haringvliet. 


© Ik wil plm 800 spelletjes voor de C-64 
ruilen. Stuur lijst naar M.A.Wiering, Bee- 
thovenlaan 7, 1741 HT Schagen. Tel: 
02240-12697. 


® Ik wil graag CBM-64 software (plm 
400 programma’s op cassette) ruilen. 
Stuur lijst naar K.Verhaegen, C Ver- 
huiststraat 19, B-2590 Berlaar (Belgie). 


® Ik wil graag CBM-64 software (plm 
300 programma’s op cassette) ruilen. 
Stuur lijst naar W.Moesman, Landstraat 
38, 1814 BE Alkmaar. Tel.: 072-112629. 


@ CBM-64 software (plm 850 program- 

ma’s op cassette of disk) te ruilen. Stuur 
lijst naar J.Kruiter, Marsstraat 32, 8303 

AM Emmeloord. Tel: 05270-14162. 


® Ik wil graag CBM-64 software (1200 
programma’s op disk) ruilen. H.Dijkstra, 
Wulpstraat 33, 8446 GG Heerenveen. 
Tel: 05130-25641. 





5,25”HD, 8” 


® Wie wil software ruilen? Ik bezit 700 
programma’s. Stuur lijst naar A Jans, Ba- 
siliekstraat 14, B-3800 St.Truiden (Bel- 
gie). 


® Ik wil spelletjes voor de C-64 ruilen. 
Stuur lijst naar Jeffrey van Loon, Sper- 
werlaan 441, 3136 GK Vlaardingen. 


_® Ik wil spelletjes voor de C-64 ruilen. 


Stuur lijst naar H.Schoemaker, Zierik- 
zeestraat 26, 6845 BM Arnhem. 


@ CBM-64 software (plm 2000 program- 

ma's voor disk) te ruilen. Stuur lijst naar 

E.Linders, Halewynstraat 24, 4875 CV Et- 
ten Leur. Tel: 01608-16269. 


® Vic-20 programma’s (8 of 16K). Ik heb 
plm 400 programma's. Stuur je lijst naar 

Eduard vd Ridder, Beatrixstraat 18, 3862 

DB Nykerk. Tel: 03494-57542. 


IK BIED AAN SOFTWARE 

® Pim 250 spellen voor commodore-64. 
Hans Emmerink, Ingelsbroek 12, 6442 
AH Brunssum. Tel: 045-256125. 


® Orig. typecursus van radarsoft voor 
GBM-64 op cassette. Prijs: fl35,=. Tel: 
08356-86786 (na 18.00 uur). 


© Printshop drukkerij vaor thuis.Voor 
C-64 op disk. Nieuw in doos + hand- 
boek. Prijs fl.100,=. Tel.: 01892-14365. 


® Zelf geschreven software facturatie 
met klanten en artikelenbeheer, stockbe- 
heer, debiteurenbeheer, databases enz. op 
schijf of cassette. Henry Schuerwege, 
Lierbaan 202, B-2870 Putte (Belgie). 


BASF Fle 


BASF FlexyDisk 5,25”, 


5,25” 5,25”HD 


BASF FlexyDisk Science 


® Orig. BTW progr. met geintegreerde 
facturatie en in- en verkoopannalyse. 
Fr.Bulkens, Doorniksewijk 29, B-8500 
Kortrijk (Belgie). Tel: 056-216257. 


® Te koop: legale spelletjes op cassette 
(met handleiding). Titels: Jumpin Jack, 
Decathlon, Moonbuggy, Triad, Hustler (bil- 
jart) en een adventurescassette. Paul van 
der Veen. Tel: 020-3651125. 


® CBM-64 aandelen programma op tape 
voor bijhouden van uw transactie’s. Te- 
vens andere vermogens en maandrappor- 
tage. Prijs: fl,100,=. J.Straatman. Tel: 
01883-16429. 


® Te koop of te ruil plm 500 spellen in 
machinetaal op tape (of event.disk) voor 
de C-64. Frank van IJzendoorn, Griend 
15, 6662 XS Elst (Gld). 


© Te koop of te ruil vele CBM-64 spelle- 
tjes op cassette of disk. Edwin Pietersen. 
Tel. 05270-13608. 


© CBM-64. Orig.cassettes aangeb.oa. The 
Hobbit. Prijs fl.20,=. Tevens kontakt ge- 
zocht voor het ruilen van software. Julian 
Atienzar, Hengelosestraat 162, Enschede. 


© Software Vic-20. Allerlei arcade spel- 
letjes (denk en lessen). B.Van Zeebroeck, 
Leireken 126, B-1880 Merchtem (Belgie). 
Tel: 052-350867 (na 18.00 uur). 


® In bezit Run/USA en Run-DTSL. Elk 
ruim jaar. Wie ruilt (tijdelijk) voor andere 
gelijkwaardige bladen. Biedt tevens aan 
orig.grandmaster schaakspel (cassette). 
B.L.de Roos, Zonnestein 118, 1181 MA 
Amstelveen. Tel.: 020-415479. 








3,5” 


D Ì k 
BASF FlexyDisk 


De diskette met extreem 


Volledige bedrijfszekerheid nu bij 


De top-diskette voor gebruik in 


OVERIGEN 

® Heeft u geen zin om lange listings in 
te typen? Ik wil dat tegen vergoeding wel 
voor u doen. R.Goedel, Buitenzorglaan 
19-A, 6712 GN Ede.Tel.: 08380-17409 
(na 17.00 uur). 


© Ik zoek een handleiding vaor wordpro 
34 (CBM-64). M.Kreijtz, Troelstralaan 
319, 9406 BE Assen. 


® Gevr.: Poke's voor spelletjes voor de 
C-64. M.Derksen, Archipel 4559, 8224 
HW Lelystad. 


® Wie heeft voor mij een nederlandstali- 
ge handleiding voor de commodore printer 
MPS-802. Jahan Ernest, L.P.van Mal- 
landstraat 29, 4754 AL Stampersgat. 


® Gezocht een beschrijving van de 
Vie-20 ROM en geheugenmap met 16K 
uitbreiding. R.Lambert, Ardooiesteenweg 
177-Bus 9, B-8800 Roeselare (Belgie). 


© Wie helpt mij? Ik wil graag via een 
modem communiseren. Dit om enige erva- 
ring op te doen. W.A.Dal. Tel.: 
055-410452 (na 18.00 uur). 


Uw advertentie-opdrachten 
sturen naar: CD-MARKT 
t.a.v. Carla de Haan 
redactiesecretariaat 


Rijnsburgstraat 11 
1059 AT Amsterdam 






wetenschap en techniek. 
Temperatuurbestendig tot +70°C. 
Volledige oppervlaktecontrole. 
Gemiddelde levensduur van 70 
miljoen lees-/schrijfkoppassages 
per spoor. 


twee keer zo lange levensduur: 
gemiddeld 35 miljoen lees- 
schrijfkoppassages per spoor. 


hoge registratiecapaciteit 
voor de nieuwe micro 
disk drive generatie. 
Leverbaar in 1D en 2D 
uitvoering. 
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BASF Nederland BM, 
Divisie Datatechniek 
Postbus 1019 

6801 MC Arnhem 
Tel. 085-717302 


3 BASF 


SE 


Bedrijfszeker door top-technologie 
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ASF 
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Science 
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lOO% certified! 








Het eerste 
Computer 

| Geassisteerde 
á Computerspel 






be kaprielen 


RadarSoft's nieuwste produkt, waarbij 
de grenzen van de Cornmodore 64 
opnieuw worden verlegd. 





Het spel 


Het speelt zich allemaal af diep onder het 
trottoir van 6 wereldsteden: de riolen van 
Arnsterdam, Londen, Parijs, Tokyo, New York 
en Moskou! Je hebt de opdracht deze 
schoon te maken. Maar je staat er NIET 
alleen voor. DE KAPRIOLEN wordt namelijk 
rnet een heuse propot gespeeld, FLOYD. 
Deze probot (PROBOT= PROgrammeerbare 
roBOT) is in de fabriek geprogrammeerd 
om vuil op te ruimen en barsten te 
repareren. En jouw taak is om hem door 
het ondergronds labyrinth naar het vuil te 
leiden. Er zitten echter haken en ogen aan 
deze klus. Je bent namelijk NIET in je eentje 
daar beneden. Er leven ook rappe ratten, 
valse vleermuizen, doorgespoelde 
alligators en losgebroken boeven in de 
buizenstelsels die het werken daar bijna 
onmogelijk maken. Nu kun je als speler 
met je joystick je robot op deze gevaren 
afsturen. Maar je kunt ook slim zijn, De 
robot is namelijk ook ZELF te 
programmeren. Met andere woorden JIJ 
LEERT HEM HOE HIJ HET SPEL MOET MEE 
SPELEN. Daartoe ontwerp je PROCEDURES 
die hij opvolgt als de situatie zich voordoet. 
Tegen de gevaarlijke rondlopende ratten 
ontwerp je dus een RATPROCEDURE. Voor 
de door de toilet gespoelde alligators een 
ALLIGATOR-PROCEDURE enz. Dat wil dus 
niet zeggen dat het er makkelijker op 
wordt. JIJ moet tenslotte zeggen waar, 
wanneer en hoe FLOYD het riool moet 
opruimen. Je staat er dus niet meer alleen 








voor. Maar zouden FLOYD en jij de zaak % IMOG elijkheid tot gebruik grote wereldsteden, middels 
kammen Keen van verschillende adembenemende graphics. 
Baden Bei Nedtebeen kamerastandpunten voor x Realistisch geanimeerde 


een duidelijk aktie overzicht. tegenstanders. 
Miet uigebreide Nedenamsenge ES 3-Dimensionale weergave % Uniek - computer geassis- 
handleiding. van rioolsysternen van 6 teerd interne spelprocedure. 


Cornmodore 64 


Andere kwaliteitsprogramma's van 


RadarSoft voor uw CBM64 zijn: 
- Kruiswoord - Databasis 3.0 - De Sekte 
-De grotten van Oberon - Eindeloos 
„Topografie Nederland/Europa/Wereld 
-Tempotypen- Rekenwonder Letterstress 
„Radarbasic 5OK - Databasis -Tijdreiziger 


- Steen der Wijzen - Anonimus - Nautilus 
„Horror Hotel - Zone 7. 


Verkrijgbaar bij de off. RadarSoft dealers o.a. Vroom & Dreesman, Dixons, Fotoquelle eiv.a. 
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